home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CE Software Product Guide.cpt / CE Software Product Guide / background_2080.txt < prev    next >
Text File  |  1990-01-03  |  6KB  |  304 lines
  1. -- background: 2080 from stack: in
  2. -- bmap block id: 4327
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on Opencard
  8.   set the scroll of background field "text1" to 0
  9.   set the scroll of background field "text2" to 0
  10. end openCard
  11.  
  12. on lockit
  13.   set the locktext of background field "text1" to "true"
  14.   set the locktext of background field "text2" to "true"
  15. end lockit
  16.  
  17. on unlockit
  18.   set the locktext of background field "text1" to "False"
  19.   set the locktext of background field "text2" to "False"
  20. end unlockit
  21.  
  22.  
  23.  
  24. -- part 2 (field)
  25. -- low flags: 81
  26. -- high flags: 0007
  27. -- rect: left=121 top=6 right=226 bottom=507
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 14
  32. -- text size: 14
  33. -- style flags: 0
  34. -- line height: 18
  35. -- part name: Text2
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   global FrontField
  39.   put "FS" into FrontField
  40.  
  41.   set lockscreen to true
  42.   set the scroll of background field "text1" to 0
  43.   set the scroll of background field "text2" to 0
  44.   hide background field "text2"
  45.   show background field "text1"
  46.   unlock screen with visual effect dissolve
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 1 (field)
  52. -- low flags: 01
  53. -- high flags: 0007
  54. -- rect: left=121 top=6 right=226 bottom=507
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 14
  59. -- text size: 14
  60. -- style flags: 0
  61. -- line height: 18
  62. -- part name: Text1
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   global FrontField
  66.   put "OV" into FrontField
  67.  
  68.   set lockscreen to true
  69.  
  70.   set the scroll of background field "text1" to 0
  71.   set the scroll of background field "text2" to 0
  72.   hide background field "text1"
  73.   show background field "text2"
  74.   unlock screen with visual effect dissolve
  75.  
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 3 (button)
  81. -- low flags: 00
  82. -- high flags: 8000
  83. -- rect: left=344 top=242 right=290 bottom=401
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 1004 / 1004
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Fact Sheet
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   global FrontField
  95.   put "FS" into FrontField
  96.  
  97.   set lockscreen to true
  98.   set the scroll of background field "text1" to 0
  99.   set the scroll of background field "text2" to 0
  100.   hide background field "text2"
  101.   show background field "text1"
  102.   unlock screen with visual effect dissolve
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 4 (button)
  108. -- low flags: 00
  109. -- high flags: 8000
  110. -- rect: left=292 top=242 right=290 bottom=345
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 1004 / 1004
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Overview
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   global FrontField
  122.   put "OV" into FrontField
  123.  
  124.   set lockscreen to true
  125.  
  126.   set the scroll of background field "text1" to 0
  127.   set the scroll of background field "text2" to 0
  128.   hide background field "text1"
  129.   show background field "text2"
  130.   unlock screen with visual effect dissolve
  131.  
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 6 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=380 top=300 right=329 bottom=425
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 2442 / 2442
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: 
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   push card
  151.   visual effect scroll left
  152.   go to card "Help"
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 7 (button)
  158. -- low flags: 00
  159. -- high flags: 2000
  160. -- rect: left=336 top=300 right=328 bottom=381
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 5814 / 5814
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: 
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   global FrontField
  172.   put "OV" into FrontField
  173.  
  174.   set lockscreen to true
  175.   hide background field "Text1"
  176.   show background field "Text2"
  177.   go to next card
  178.   unlock screen with visual effect scroll left
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 8 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=292 top=300 right=329 bottom=337
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 15010 / 15010
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: 
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   global FrontField
  198.   put "OV" into FrontField
  199.  
  200.   set lockscreen to true
  201.   hide background field "Text1"
  202.   show background field "Text2"
  203.   go prev card
  204.   unlock screen with visual effect scroll right
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 9 (button)
  210. -- low flags: 00
  211. -- high flags: 2000
  212. -- rect: left=467 top=299 right=328 bottom=512
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 9632 / 9632
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: 
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  224.   if it = "Cancel"
  225.   then
  226.   exit mouseUp
  227. end if
  228.  
  229. if it = "Home"
  230. then
  231. visual effect iris open
  232. go home
  233. else
  234.   show menubar
  235.   doMenu "Quit HyperCard"
  236. end if
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 10 (button)
  242. -- low flags: 00
  243. -- high flags: 2000
  244. -- rect: left=424 top=302 right=327 bottom=468
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 10668 / 10668
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: 
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   visual effect iris close
  256.   go to card shelf1
  257. end mouseUp
  258.  
  259.  
  260.  
  261. -- part 12 (button)
  262. -- low flags: 00
  263. -- high flags: 8000
  264. -- rect: left=454 top=242 right=290 bottom=507
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 1007 / 1007
  267. -- text alignment: 1
  268. -- font id: 0
  269. -- text size: 12
  270. -- style flags: 0
  271. -- line height: 16
  272. -- part name: Print
  273. ----- HyperTalk script -----
  274. on mouseUp
  275.   global FrontField
  276.  
  277.   answer "Printer Type:" with "Cancel" or "Dot-Matrix" or "Laser"
  278.  
  279.   if it = "Cancel"
  280.   then
  281.   exit MouseUp
  282. else
  283.   if it = "Laser"
  284.   then
  285.   put "Helvetica" into FontHolder
  286. else
  287.   put "Geneva" into FontHolder
  288. end if
  289. end if
  290.  
  291. if FrontField = "OV"
  292. then
  293. put "Product Overview" into Header
  294. put "Product Overview" into VarHolder
  295. PrintDoc Header,background field "Text2", VarHolder, FontHolder, 12
  296. else
  297.   put "Fact Sheet" into Header
  298.   put "Fact Sheet" into VarHolder
  299.   PrintDoc Header,background field "Text1", VarHolder, FontHolder, 12
  300. end if
  301.  
  302. end mouseUp
  303.  
  304.